home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS038.dsk / LABEL PRINTER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  50 lines
  1. 10  REM  LABEL PRINTER PROGRAM
  2. 20  REM  BY ATHOL H. COHEN
  3. 30  REM  11:MARCH:1981
  4. 40  HOME : VTAB 5: HTAB 10
  5. 50  PRINT "THIS IS A FIVE  LINE"
  6. 60  PRINT : HTAB 9
  7. 70  PRINT "LABEL PRINTING PROGRAM"
  8. 80  PRINT : HTAB 5
  9. 90  PRINT "DESIGNED TO PRINT LABELS WITH A"
  10. 100  PRINT : HTAB 11: INVERSE 
  11. 110  PRINT "CENTRONICS PRINTER"
  12. 120  NORMAL : PRINT : HTAB 6
  13. 130  PRINT "USING  E X P A N D E D  PRINT"
  14. 140  VTAB 22: HTAB 4
  15. 150  INPUT "IN WHICH SLOT IS YOUR PRINTER? ";SL
  16. 160  HOME 
  17. 170  FOR H = 6 TO 14  STEP 2
  18. 180  VTAB H: HTAB 5:X = H/2 -2
  19. 190  PRINT "LINE NUMBER :";X
  20. 200  VTAB H: HTAB 20: CALL  -958
  21. 210  PRINT "=============="
  22. 220  VTAB H: HTAB 20
  23. 230  INPUT "";L$(X)
  24. 240  IF  LEN(L$(X)) >14  THEN 450
  25. 250  NEXT 
  26. 260  VTAB 16: HTAB 12
  27. 270  INPUT "CORRECT (Y/N) : ";CR$
  28. 280  IF  LEFT$(CR$,1) = "N"  THEN 160
  29. 290  VTAB 16: HTAB 7
  30. 300  INPUT "HOW MANY DUPLICATE LABELS: ";DL
  31. 310  FOR Q = 1 TO DL
  32. 320  VTAB 18: HTAB 7
  33. 330  INPUT "ALIGN LABEL & HIT RETURN:  ";I$
  34. 340  HOME : PR# (SL)
  35. 350  PRINT " ": REM  FOR 730 ONLY
  36. 360  FOR X = 1 TO 5
  37. 370  PRINT  CHR$(27); CHR$(14)
  38. 380  PRINT  TAB( 15 +(14 - LEN(L$(X)))/2);L$(X)
  39. 390  NEXT X: PR# 0
  40. 400  NEXT Q
  41. 410  HOME : VTAB 10: HTAB 8
  42. 420  PRINT "PRINT ANOTHER LABEL ?";A$;
  43. 430  GET A$: PRINT A$: IF A$ = "Y"  THEN 160
  44. 440  HOME : TEXT : END 
  45. 450  POKE 32,33: POKE 33,7: HOME : TEXT 
  46. 460  POKE 34,19: HOME : VTAB 20: HTAB 4
  47. 470  PRINT "THE MAXIMUM NUMBER OF CHARACTERS"
  48. 480  PRINT : HTAB 12: PRINT "IS LIMITED TO<CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G> ";
  49. 490  FLASH : PRINT "14": NORMAL 
  50. 500  FOR P = 1 TO 1500: NEXT : HOME : TEXT : GOTO 180